
<%
	dim conn3
	dim connstr3
	dim db3
	db3="db/Currency.asp"
	Set conn3 = Server.CreateObject("ADODB.Connection")
	connstr3="Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123456789;Data Source=" & Server.MapPath(db3)
	conn3.Open connstr3
	sub closedatabase()
	  conn3.close
      set conn3=Nothing
    End sub

%>   
